work makAll play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All
HBAM2016AUG95
Pro 3.0
All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a goodCopyright 1984-1997 Claris Corporation
and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy.
alisA
FaliA
FaliA
alisA
LISTA
LISTA
HBAM3016AUG95@
VAt?z
1st Quarter
2nd Quarter
3rd Quarter
4th Quarter
3/10/99
CONTAINER
GDESTFILESPEC
GERRORCODE
GFOLDERLIST
GFOLDERLISTSWITCHES
GFOLDERSPEC
O GFULLPATH
GNUMBER
GSEARCHRESULTS
GSEARCHRESULTSREPEATING
GSEARCHSPEC
GSEARCHVOLUME
GTHEIMPORT FILESPEC
GVERSION
gNumberB
gVersionB
|("TrFile-Version"
TrFile-Version
gTheImport FileSpecB
gErrorCodeB
"A gFullPathB
ODKES:Projecten:Troi FM Plug-In:FILE:multi image folder import:images:
Multi Image Import
Find unique import file name
Prepared
Multi Image ImportB
gDestFileSpecB
gFolderListB
gFolderListSwitchesB
gFolderSpecB
gSearchSpecB
gSearchResultsB
gSearchVolumeB
YA ContainerB
PathB
gSearchResultsRepeatingB
MenuB
Import all images from a folder
from a folder
Import all images from a folder
Do Multi Import
2B) When you want to import again, run this script:
&all images of the folder are imported.
Images Path
import
from folder
This example shows how to import multiple images from a folder. Each image will be imported into a separate record.
You need Troi File plug-in installed, which can be found at our web site:
http://www.troi.com/
PreparedB
Import all images from a folder
0There are more files with the name on this disk.
Continue
1VPlease choose the correct import file: click on the correct button, and press continue
Cancel
chosen import file
Import all images from a folder
0There are more files with the name on this disk.
Continue
1VPlease choose the correct import file: click on the correct button, and press continue
Cancel
chosen import file
to menu
Open file
Set all globals
Check FILE plug-in
Check for NO Troi FM plug-in
----- Multi Image Import ------
Once: Prepare for Multi Import
( Locate unique import file ImpoUNIQ.GIF
Find Import SOURCE folder
&LOOP: Import the files from the folder
Import 1 Picture
6----- scripts for selecting correct import file ------
( Ask user to Specify unique import file
! Select unique import file Rep 1
! Select unique import file Rep 2
! Select unique import file Rep 3
! Select unique import file Rep 4
"! Select unique import file Rep 5
$! Select unique import file Rep 6
&! Select unique import file Rep 7
Check FILE plug-in
import
FileSpec
Import all images from a folder
Change import data
<Below is the data that is going to be used to do the import:
2You are now prepared to do the multi images import
Do Multi Import
,B) When you want to import, run this script:
&all images of the folder are imported.
import
from folder
This example imports a file called
ImpoUniq.gif
that is already in the folder of this FMP-file. If you want to change that: it
s in the script
Import 1 Picture
Helvetica
Geneva
Arial
Times New Roman
Monaco
Courier
Times
Futura
Courier New
Palatino
A4Important: ALWAYS check if the plug-in is available!B)Check if this is FileMaker 4.0 or higher.CQ
1)) < 4
Canceld
This file requires FileMaker 4.0 or higherE/Check if the correct Troi Plug-in is available.F
|("TrFile-Version"
"")
17 ) <> "Troi File Plug-in"
TrFile-Version
Troi File Plug-in
) = 1
Canceld
Troi File Plug-in not found. Please put the Troi File Plug-in into the Extensions folder inside the FileMaker folder.
Also enable all the plug-ins under the application preferences.
Canceld
Troi File Plug-in not found. Please put the Troi File Plug-in into the SYSTEM directory inside the FileMaker directory.
Also enable all the plug-ins under the application preferences.
Set all globals
|("Troi-Set Default Separator"
"|")
Troi-Set Default Separator
A Open file
) = 2
4 = ""
Check for NO Troi FM plug-in
A4Important: ALWAYS check if the plug-in is available!B)Check if this is FileMaker 4.0 or higher.Cy
|("Troi-Version"
"")
15 ) = "Troi FM Plug-in"
Troi-Version
Troi FM Plug-in
) = 1
Canceld
Troi FM Plug-in is still installed, so new plug-in features won't be enabled.
Please remove the Troi FM Plug-in from the Extensions folder inside the FileMaker folder.
Canceld
Troi FM Plug-in is still installed, so new plug-in features won't be enabled.
Please remove the Troi FM Plug-in from the SYSTEM directory inside the FileMaker directory.
Import 1 Picture
zA( Locate unique import file ImpoUNIQ.GIF
A"specify the disk to be searched...B!
U = ""
) = 1
|("TrFile-FileSpec To FullPath"
|("TrFile-FindFolder"
"root") )
"C:"
TrFile-FileSpec To FullPath
TrFile-FindFolder
root||
find the impoUNIQ.gif fileEx
|("TrFile-Search"
"-files|"&
U & "|impoUNIQ.gif")
TrFile-Search
-files|
|impoUNIQ.gif
") = 1
only one found... good!H>
R) -1)
7I(more found: ask user which one to take.J7
") > 1
Cancel
More than one "ImpoUniq.gif" file found.
Please specify the path yourself.L>
R) -1)
Cancel
No "ImpoUniq.gif" file found.
Please specify the path yourself.
Find Import SOURCE folder
A"set no filtering of visible files:BN
|("TrFile-SetDefaultType"
TrFile-SetDefaultType
|C<ask the user for the first file in the folder to be imported
|("TrFile-Get FileSpec Dialog"
"Locate the first image in the source folder")
TrFile-Get FileSpec Dialog
+Locate the first image in the source folder|E)
= "$$-1"
make a full path of it.G]
|("TrFile-FileSpec To FullPath"
TrFile-FileSpec To FullPath
) = 1
Mac OSJ_
64000
-1) )
64000
-1) )
Once: Prepare for Multi Import
----- Multi Image Import ------
A&LOOP: Import the files from the folder
|("TrFile-ListFolder"
"files|" &
TrFile-ListFolder
files|
" ) = 0
Find the end of the first lineDF
copy the first line into globalFC
+ 1
64000)
|("TrFile-DeleteFile"
TrFile-DeleteFile
|("TrFile-CopyFile"
& "|" &
TrFile-CopyFile
<> 0
Export
Cancelh
Replace
An Error occured. See the layout for an explantion of errors.L
A( Ask user to Specify unique import file
find the impoUNIQ.gif fileB_
1
1 ) )
1
1 ) + 1
1
2 ) -
1
1 ) )
1
2 ) + 1
1
3 ) -
1
2 ) )
1
3 ) + 1
1
4 ) -
1
3 ) )
1
4 ) + 1
1
5 ) -
1
4 ) )
1
5 ) + 1
1
6 ) -
1
5) )
1
6 ) + 1
1
7 ) -
1
6) )
R <> ""
OKero value
ML@e true, zero and e
Cancellues are false.`
View`
oPlease choose the import file.
A! Select unique import file Rep 1
A! Select unique import file Rep 2
A! Select unique import file Rep 3
A! Select unique import file Rep 4
A! Select unique import file Rep 5
!A! Select unique import file Rep 6
"A! Select unique import file Rep 7
#A6----- scripts for selecting correct import file ------
to menu
goto www.troi.com
http://www.troi.com/
FRPTH
FPTHAFWORF:Projecten:Troi FM Plug-In:Troi-FM-Plug-in1.1b2:Files:TrExport.tab
(.txt)
.dmg/Shareware World/Utilities/Data & Time/Troi-File-Plug-in1.2.1/ImpoUniq.gif){kind=link}